home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / strlib.zip / FFS.C < prev    next >
Text File  |  1993-01-04  |  1KB  |  44 lines
  1.  
  2. /*  File   : ffs.c
  3.     Author : Richard A. O'Keefe.
  4.     Updated: 20 April 1984
  5.     Defines: ffs(), ffc()
  6.  
  7.     ffs(i) returns the index of the least significant 1 bit in i,
  8.            where 1 means the least significant bit and 32 means the
  9.            most significant bit, or returns -1 if i is 0.
  10.  
  11.     ffc(i) returns the index of the least significant 0 bit in i,
  12.            where 1 means the least significant bit and 32 means the
  13.            most significant bit, or returns -1 if i is ~0.
  14.  
  15.     These functions mimic the VAX FFS and FFC instructions, except that
  16.     the latter return much more sensible values.  This file only exists
  17.     to make it easier to move 4.2bsd programs to System III (which is
  18.     rather like moving up from a Rolls Royce to a model T Ford), and so
  19.     I haven't bother with assembly code versions.
  20. */
  21.  
  22. #include "strings.h"
  23.  
  24. int ffs(i)
  25.     register int i;
  26.     {
  27.         register int N;
  28.  
  29.         for (N = 8*sizeof(int); --N >= 0; i >>= 1)
  30.             if (i&1) return 8*sizeof(int)-N;
  31.         return -1;
  32.     }
  33.  
  34. int ffc(i)
  35.     register int i;
  36.     {
  37.         register int N;
  38.  
  39.         for (N = 8*sizeof(int); --N >= 0; i >>= 1)
  40.             if (!(i&1)) return 8*sizeof(int)-N;
  41.         return -1;
  42.     }
  43.  
  44.